<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Module madx_ptc_script_module</title>
</head>

<body>

<p>module madx_ptc_script_module<br>
<font color="#33CC33">!This module enables the user to execute a PTC script<br>
!that enables additional functionality that is not possible with MAD-X scripting 
language<br>
</font>use madx_keywords<br>
implicit none<br>
save<br>
private<br>
<br>
<font color="#33CC33">
!============================================================================================<br>
! PUBLIC INTERFACE<br>
</font>public :: execscript<br>
<br>
<br>
<font color="#33CC33">
!============================================================================================<br>
! PRIVATE<br>
! data structures<br>
</font><br>
<font color="#33CC33">! routines<br>
<br>
!============================================================================================<br>
<br>
</font>contains<br>
<font color="#33CC33">
!____________________________________________________________________________________________<br>
</font><br>
subroutine execscript(scriptname)<br>
implicit none<br>
include 'twissa.fi'<br>
integer scriptname(*)<br>
character(48) scriptfilename<br>
<br>
scriptfilename = charconv(scriptname)<br>
print*, &quot;I am in execsript: Script name is &quot;, scriptfilename<br>
<b><font color="#FF0000">CALL read_ptc_command77(scriptfilename)</font><font color="#FF0000" size="4">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font><font color="#FF0000" size="6">&lt;&lt;&lt;&lt;-------ADD THIS LINE</font></b></p>

<p>print*, &quot;Exiting execscript&quot;<br>
<br>
end subroutine execscript<br>
<br>
end module madx_ptc_script_module</p>

</body>

</html>